Wear-Slot-Obstruct-Max names an undocumented function, with lambda list (OBJECT).
(SETF Wear-Slot-Obstruct-Max) names an undocumented function, with lambda list (NEW-VALUE OBJECT).